home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr46 / tpfort18.zip / FSAMPLE.PAS < prev    next >
Pascal/Delphi Source File  |  1993-05-31  |  857b  |  37 lines
  1. {$N+}
  2. unit Fsample;
  3. {  This unit contains the dummy Pascal routines corresponding to the routines
  4.    in FSAMPLE.FOR
  5. }
  6. interface
  7.   uses FortLink;
  8.  
  9. procedure Eval(Fn:extval; 
  10.             var N:longint;
  11.             var X:realarray;
  12.             var Value:double);
  13. {  Evaluates a double-valued function with arguments N and an array X of length
  14.    N, and returns the answer in Value  }
  15.  
  16. function Cube(var X:double):double;
  17. {  Cubes its argument  }
  18.  
  19. const
  20.   Eval_Num = 1;     { These numbers are the positions of EVAL and CUBE in }
  21.   Cube_Num = 2;     { the Fortran call to CALLTP                          }
  22.  
  23. implementation
  24.  
  25. procedure Eval;
  26. begin
  27.   CallFort(Eval_Num);  { This is a procedure, so it uses CallFort }
  28. end;
  29.  
  30. function Cube;
  31. begin
  32.   FDouble(Cube_Num);   { This is a function:double, so it uses FDouble }
  33. end;
  34.  
  35. end.
  36.  
  37.